Celestin Apprentice 5/Apprentice-Release5.iso/Environments/MacMETH 3.2.4/Examples/Buggy.MOD

Text File | 1996-06-20 | 276 b | 18 lines | [TEXT/MEDT]

MODULE Buggy; (* W. Heiz, 4-Apr-86 *)

  (* contains 1 syntax and 1 run-time error *)

  VAR x : CARDINAL;
      a : ARRAY [0..10] OF BOOLEAN;

  PROCEDURE P(i : CARDINL; p : BOOLEAN);
  BEGIN
    a[i] := p;
  END P;

BEGIN
  x := 14;
  P(0,TRUE);
  P(x,FALSE);
END Buggy.